home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
s-gikan2.maizuru-ct.ac.jp
/
s-gikan2.maizuru-ct.ac.jp.zip
/
s-gikan2.maizuru-ct.ac.jp
/
pub
/
old
/
ncvc351d_install.exe
/
{app}
/
scripts
/
XYonly.pl
< prev
Wrap
Text File
|
2007-10-23
|
1KB
|
30 lines
###ActivePerlé≡é▄é╕âCâôâXâgü[âïé╡é─ë║é│éóüBâtâèü[â\âtâgé┼é╖üB###
###http://www.activestate.com/Products/ActivePerl/?psbx=1###
###Perlé╔é┬éóé─é═éóéδé±é╚âzü[âÇâyü[âWé┼ë≡Éαé│éΩé─éóé▄é╖üBîƒì⌡é╡é─ë║é│éóüB###
###é▒é╠âXâNâèâvâgâtâ@âCâïé≡üAò╧è╖é╡é╜éóémébâtâ@âCâïé╞ô»é╢âtâHâïâ_é╔ôⁿéΩé─###
###â_âuâïâNâèâbâNé╖éΘé╞"anaExcel.ncd"é╞éóéñâtâ@âCâïé¬é┼é½é▄é╖üB###
###Æìê╙üIüIò╧è╖é╡é╜éóâtâ@âCâïû╝é≡"ana.ncd"é╔é╡é─é⌐éτÄ└ìsé╡é─é¡é╛é│éó###
######émébéuébé╠É▌ÆΦé═üAîèéáé»âfâtâHâïâgé┼éóé»éΘé╞Ävéóé▄é╖é¬###
###éyÆlüiÉ[é│üjé╞éqô_é╞éeÆlé═É«Éöé┼üBżÉöô_é═òKÉ{üB###
###âXâNâèâvâgé═èεû{ôIé╔üAÅπé╠ìsé⌐éτÅçö╘é╔Ä└ìsé╡é─éóé¡é╠é┼Æìê╙###
open(IN,"ana.ncd")||die"error:$!\n";###"ana.ncd"é¬ò╧è╖é╡é╜éóâtâ@âCâïû╝é┼é╖###
open(OUT,">anaExcel.ncd")||die"error:$!\n";###anaExcel.ncd"é¬ò╧è╖îπé╔é┼é½éΘâtâ@âCâïû╝é┼é╖###
@SABU=<IN>;
foreach $line(@SABU) {
$line=~ s/G\d+//g;###/é`/éa/é┼é`é≡éaé╔Æué½è╖éªéΘé╞éóéñê╙ûíé┼é╖###
$line=~ s/Z\d+\.//g;###Z\d+\.é╞é═Z4.é╞é⌐Z23.é╠é▒é╞é┼é╖ühÉ│ïKò\î╗ühé┼îƒì⌡é╡é─ë║é│éó###
$line=~ s/Z\d+\.\d+//g;###Æuè╖éªéΓìφÅ£é═é▒é╠ì\ò╢é≡Ägéªé╬è╚ÆPé┼é╖###
$line=~ s/Z-\d+\.R\d+\.\d+//g;###éyé╞éqé¬É«Éöé╚éτòsùv###
$line=~ s/Z-\d+\.\d+R\d+\.\d+//g;###ô»Åπ###
$line=~ s/Z-\d+\.R\d+\.//g;
$line=~ s/Z-\d+\.\d+R\d+\.//g;
$line=~ s/Z\d+//g;
$line=~ s/F\d+\.//g;
$line=~ s/\(End of CircleData\)//g;
$line=~ s/^\n//g;###ìsô¬é╠ëⁿìsé≡Æué½è╖éª###
}
print OUT @SABU;
close(IN);
close(OUT);